home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Languages / Masm V6.11 / SAMPLES / NTSAMPLE / NTDLL / ASMDLL.AS$ / ASMDLL.bin
Encoding:
Text File  |  1993-08-17  |  2.6 KB  |  121 lines
  1. ;------------------------------------------------------------------------
  2. ;
  3. ; Asm DLL functions. 
  4. ;
  5. ; Receives: char, short, int, and long passed by value and reference, 
  6. ;
  7. ; Returns: True (1) for success or False (0) for failure
  8. ;
  9. ;------------------------------------------------------------------------
  10.  
  11.  
  12.  
  13. .386                    ; .386 before .model gives 32 bit segments and code.
  14. .model flat, stdcall    
  15.  
  16. .code
  17.  
  18.  
  19. ;
  20. ; Signed integers passed by value.
  21. ; 
  22.  
  23. VSIntTest PROC NEAR int1:SBYTE, int2:SDWORD, int3:SWORD, int4:SDWORD
  24.  
  25.   mov al, int1            ; int1 is on the local stack for this proc.
  26.   cmp al, 80h            ; Was the param passed correctly ?
  27.   jne VSError             ; NO, so jump to error handler.
  28.   mov int1, 1           ; YES, modify it on the stack.
  29.  
  30.  
  31.   mov eax, int2            ; do the same here...
  32.   cmp eax, 0ffffffffh
  33.   jne VSError                                          
  34.   mov int2, 1                                          
  35.  
  36.  
  37.   mov ax, int3  
  38.   cmp ax, 7fffh   
  39.   jne VSError
  40.   mov int3, 1
  41.  
  42.  
  43.   mov eax, int4   
  44.   cmp eax, 80000000h
  45.   jne VSError
  46.   mov int4, 1
  47.  
  48.  
  49.   mov eax, 1             ; No errors then return ok.
  50.   jmp VSDone
  51.  
  52. VSError:
  53.   xor eax, eax          ; Errors found then return false.
  54.  
  55. VSDone:
  56.   ret                    ; leave proc.
  57.  
  58. VSIntTest ENDP
  59.  
  60.  
  61. ;
  62. ; Signed integers passed by reference.
  63. ;
  64.  
  65. RSIntTest PROC NEAR int1:DWORD, int2:DWORD, int3:DWORD, int4:DWORD
  66.  
  67.   mov ebx, int1                ; int1 is a 4 byte pointer to a byte, so
  68.   mov al, byte ptr[ebx]     ; move the contents of the address to AL.
  69.   cmp al, 80h               ; Was the pointer param passed correctly ?
  70.   jne RSError                ; NO, so jump to error handler.
  71.   mov byte ptr[ebx], 1         ; YES, we have the address of the param so 
  72.                             ; we'll modify it in the data segment.
  73.  
  74.   mov ebx, int2                ; do the same below...
  75.   mov eax, dword ptr[ebx]                 
  76.   cmp eax, 0ffffffffh
  77.   jne RSError
  78.   mov dword ptr[ebx], 1                   
  79.  
  80.  
  81.   mov ebx, int3
  82.   mov ax, [ebx]
  83.   cmp ax, 7fffh                           
  84.   jne RSError
  85.   mov word ptr[ebx], 1                    
  86.  
  87.  
  88.   mov ebx, int4
  89.   mov eax, dword ptr[ebx]                 
  90.   cmp eax, 80000000h
  91.   jne RSError
  92.   mov dword ptr[ebx], 1                   
  93.  
  94.  
  95.   mov eax, 1                ; No errors then return ok.       
  96.   jmp RSDone
  97.  
  98. RSError:
  99.   xor eax, eax                ; Errors found then return false.
  100.  
  101. RSDone:
  102.   ret                        ; leave proc.
  103.  
  104. RSIntTest ENDP
  105.  
  106.  
  107. ;
  108. ; DllMain is required for all DLL's.
  109. ;
  110.  
  111. DllMain PROC NEAR stdcall    
  112.  
  113.   mov eax, 1                ; Return true to caller. 
  114.  
  115.   ret 12                    ; Cleanup the stack since we don't use any
  116.                               ; of the params passed from the caller. 
  117.  
  118. DllMain ENDP
  119.  
  120. END
  121.